home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1993 / MacHack 1993.toast / MacHack™ 1987-1992 / MacHack™ '90 / Other Stuff / Demos ƒ / Demo AppMaker / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_403_DoMenuItem.Edit < prev    next >
Encoding:
Text File  |  1990-03-23  |  845 b   |  51 lines
  1. %if MenuItemName = Cut%
  2.     {----------}
  3.     Procedure DoCut;
  4.     Begin
  5.         if cur^.text <> nil then begin
  6.             TECut (cur^.text);
  7.             scrapDirty := true;
  8.         end;
  9.     End; {DoCut}
  10.  
  11. %elsif MenuItemName = Copy%
  12.     {----------}
  13.     Procedure DoCopy;
  14.     Begin
  15.         if cur^.text <> nil then begin
  16.             TECopy (cur^.text);
  17.             scrapDirty := true;
  18.         end;
  19.     End; {DoCopy}
  20.     
  21. %elsif MenuItemName = Paste%
  22.     {----------}
  23.     Procedure DoPaste;
  24.     Begin
  25.         if cur^.text <> nil then begin
  26.             TEPaste (cur^.text);
  27.         end;
  28.     End; {DoPaste}
  29.  
  30. %elsif MenuItemName = Clear%
  31.     {----------}
  32.     Procedure DoClear;
  33.     Begin
  34.         if cur^.text <> nil then begin
  35.             TEDelete (cur^.text);
  36.         end;
  37.     End; {DoClear}
  38.  
  39. %elsif MenuItemName = SelectAll%
  40.     {----------}
  41.     Procedure DoSelectAll;
  42.     Begin
  43.         if cur^.text <> nil then begin
  44.             TESetSelect (0, maxint, cur^.text);
  45.         end;
  46.     End; {DoSelectAll}
  47.  
  48. %else%
  49.     %DoMenuItem%
  50. %end if%
  51.